home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / scm / timer.scm < prev    next >
Encoding:
Text File  |  1993-08-19  |  230 b   |  8 lines
  1. (define time-of-day runtime)
  2.  
  3. (define (timer proc . args)
  4.         (let* ((start (runtime))
  5.                (ans (apply proc args))
  6.                (end (runtime)))
  7.               (writeln "Time = " (- end start) ", Answer = " ans)))
  8.